
#Include "fbstrings.bi"

Using FB.Strings

Dim As String s = "The quick brown fox jumps over lazy dog."
Dim As Integer replacedCount

Print StrReplace(s, "brown", "red")
Print StrReplace(s, "BROWN", "red")
Print StrReplace(s, "BROWN", "red", , , TextCompare)
Print StrReplace(s, "o", "[o]", replacedCount), "replaced: "; replacedCount
Print StrReplace(s, "o", "[o]", replacedCount, 2), "replaced: "; replacedCount
Print StrReplace(s, "O", "[O]", replacedCount, 2),, "replaced: "; replacedCount
Print StrReplace(s, "O", "[O]", replacedCount, 3, TextCompare), "replaced: "; replacedCount

Sleep